home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / loadshape.proc < prev    next >
Text File  |  2007-02-28  |  791b  |  31 lines
  1. 9000 //
  2. 9010 PROC LOADSHAPE(SPR,FILENAME$) CLOSED
  3. 9020  DIM DS$ OF 2
  4. 9030  OPEN FILE 81,FILENAME$,READ
  5. 9040  DS$:=STATUS$
  6. 9050  IF DS$="00" AND SPR>=0 AND SPR<64 THEN
  7. 9060   A:=828
  8. 9070   POKE A+0,162 //    LDX #81
  9. 9080   POKE A+1,81
  10. 9090   POKE A+2,32 //     JSR $FFC6
  11. 9100   POKE A+3,198
  12. 9110   POKE A+4,255
  13. 9120   POKE A+5,160 //    LDY #00
  14. 9130   POKE A+6,0
  15. 9140   POKE A+7,32 // LP  JSR $FFCF
  16. 9150   POKE A+8,207
  17. 9160   POKE A+9,255
  18. 9170   POKE A+10,153 //   STA SPR,Y
  19. 9180   POKE A+11,(49152+SPR*64) MOD 256
  20. 9190   POKE A+12,(49152+SPR*64) DIV 256
  21. 9200   POKE A+13,200 //   INY
  22. 9210   POKE A+14,192 //   CPY #64
  23. 9220   POKE A+15,64
  24. 9230   POKE A+16,208 //   BNE LP
  25. 9240   POKE A+17,245
  26. 9250   POKE A+18,96 //    RTS
  27. 9260   SYS A
  28. 9270  ENDIF 
  29. 9280  CLOSE FILE 81
  30. 9290 ENDPROC LOADSHAPE
  31.